home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / CadrerTexte.AmiCAD < prev    next >
Text File  |  2000-04-13  |  2KB  |  62 lines
  1. /* Création d'un cadre avec effet de relief autour d'un texte ou plusieurs textes */
  2. /* © R.Florac, Samedi 28 Mars 1998, version 1.00 */
  3. /* Version 1.01: 13/04/98 */
  4. /* Version 1.02: 07/06/98 Correction bug SAVEALL */
  5. /* Version 1.03: 14/07/98 modification tracé lignes (lignes personnalisées) */
  6. /* Version 1.04: 06/02/99 conservation du mode de tracé (utilisation DRAWMODE) */
  7. /* Version 1.05: 25/05/99 modification placement traits horizontaux */
  8. /* Version 1.06: 13/04/00 modification gestion SAVEALL */
  9. /* $VER: CadrerTexte 1.06 (© R.Florac, 13/04/00) */
  10. /* Seuls les textes "normaux" sont utilisables, les textes ayant été tournés ne sont pas gérés */
  11. /* Les références ou valeurs de composants ne sont pas acceptées */
  12.  
  13. options results     /* indispensable pour récupérer le résultat des macros */
  14.  
  15. signal on error     /* pour l'interception des erreurs */
  16. signal on syntax
  17.  
  18. 'FIRSTSEL'; objet=result
  19. if objet=0 then do
  20.     'MESSAGE("Sélectionnez d''abord"+CHR(10)+"les textes à encadrer")'
  21.     exit
  22. end
  23.  
  24. 'IF(NEXTSEL(FIRSTSEL)==0,GETPOS(FIRSTSEL)-1,0)'
  25. if result>1 then do
  26.     'MESSAGE("Traitement direction texte"+CHR(10)+"pas encore implémenté")'
  27.     exit
  28. end
  29.  
  30. xg=100000; xd = 0; yh = 10000; yb = 0; textes=objet
  31. do while objet>0
  32.     'TYPE('objet')'
  33.     if result ~= 4 then do
  34.     'BLINK('objet')'
  35.     'MESSAGE("Objet de type incorrect"+CHR(10)+"Ne sélectionnez que"+CHR(10)+"des textes S.V.P.")'
  36.     exit
  37.     end
  38.     'COORDS('objet')'; coord=result
  39.     PARSE VAR coord x0 ',' y0
  40.     if x0<xg then xg=x0
  41.     if y0>yb then yb=y0
  42.     'WIDTH('objet')'; x0=x0+result
  43.     if x0>xd then xd=x0
  44.     'HEIGHT('objet')'; y0=y0-result
  45.     if y0<yh then yh=y0
  46.     textes=textes||','||objet
  47.     'NEXTSEL('objet')'; objet=result
  48. end
  49. xg=xg-4; xd=xd+6; yh=yh-1; yb=yb+2
  50. 'SAVEALL:MODE_TRACÉ=DRAWMODE(-1):MARK(L1=DRAW('xg','yh','xd','yh')):MARK(L2=DRAW('xg','yh','xg','yb')):DRAWMODE(-2):MARK(L3=DRAW('xd','yh'+1,'xd','yb')):MARK(L4=DRAW('xg'+1,'yb','xd','yb')):GROUP('textes',L1,L2,L3,L4):DRAWMODE(MODE_TRACÉ)'
  51. exit
  52.  
  53. /* Traitement des erreurs, interruption du programme */
  54. syntax:
  55. erreur=RC
  56. 'MESSAGE("Script CadrerTexte"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  57. exit
  58.  
  59. error:
  60. 'MESSAGE("Script CadrerTexte"+CHR(10)+"Erreur en ligne 'SIGL'")'
  61. exit
  62.